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X = X - 4 

DigitOutNumbericText.lnputText = X 
End If 
End Sub 

Private Sub InjectOffLed DataTrue() 

InjectorPressLed. Caption = "Disabled" X = DigitOutNumbericText.lnputText X = X Or 4 
DigitOutNumbericText.lnputText = X 
End Sub 

Private Sub InjectorOutPutLevePRunBlockO 
'Add your custom code here 
End Sub 

Private Sub InjectorPressLed RunBlock() 
'Add your custom code here 
End Sub 

Private Sub lnjectReadyl_ed_DataFalse() 
InjectorPressLed. Caption = "In used" 
End Sub 

Private Sub Inject Ready Led_DataTrue() 
InjectorPressLed. Caption = "Ready" 
End Sub 

Private Sub InjectReadyLed RunBlock() 
'Add your custom code here 
End Sub 

Private Sub Lowcelled DataFalse() 
CellPurageLed.Caption = "Filling" 
CellPurageLed.Value = False 'turn off Cell Purge 
End Sub 

Private Sub Lowcelled DataTrue() 
CellPurageLed.Caption = "Empty" 
End Sub 

Private Sub Lowcelled RunBlock() 

If StartStopFlag = 1 Then X = DigitOutNumbericText.lnputText If CellControlFlag = 1 Then 
If Lowcelled. Value = False Then 
X = XOr2 

DigitOutNumbericText.lnputText = X 
CToggleSwitch2.Value = False 'Vaccum 
CToggleSwitchl.Value = True 'Alt Sw 
CellWaitFlag = 0 

' CelldischargeWaitTimer. Enabled = True 



CombustAII - 13 
If S$ = Then 
Rs232RxData.Caption = fill 
DegFValue. Caption = fill 
GoTo Bypass 
End If 

Rs232RxData.Caption = Mid$(S$, 1,12) 

S$ = Mid$ (S$, 6, 4) 

X= Val(S$) 

DegF = X* 9/5 + 32 

DegFValue.Caption = "TEMP " & DegF & " A F" 
Rs232Templ_evel.lnputText = DegF 
Else 

DegFValue.Caption = fill 

Rs232RxData.Caption = 

Rs232TempLevel.lnputText = fill 
End If 
Bypass: 
End Sub 

Private Sub Select Rs232Temp A Click() 
If Rs232Flag = 0 Then 
Rs232Flag = 1 
TempSelect.lnputText = 2 
SelectRs232Temp.Caption = "Monitoring" 
Else 

Rs232Flag = 0 
TempSelect.lnputText = 1 
SelectRs232Temp.Caption = "Rs232Temp" 
End If 
End Sub 

Private Sub SetupButton_Click() 
If SetLimitsFlag = 0 Then 
SetLimitsFlag = 1 

SetupButton. Caption = "Adj Limits" 
CSIider9.Visible = True 
CSIider6.Visible = True 
CSIider7.Visible = True 
CSIider3.Visible = True 
CSIiderl. Visible = True 
CSIider2.Visible = True 
CSIider5.Visible = True 
AdjHiLimit.Visible = True 
AdjLowSetLimit.Visible = True 
CombustAII. Height = 8250 
CombustAII. Width = 11835 
CToggleSwitch5. Visible = True 
CellTestingSw. Visible = True 
CToggleSwitch4. Visible = True 
CToggleSwitch5. Enabled = False 
CellTestingSw. Enabled = False 



CToggleSwitch4. Enabled = False 
Else 

SetLimitsFlag = 0 

SetupButton. Caption = "Set Limits" 
CSIider9.Visible = False 
CSIider6.Visible = False 
CSIider7.Visible = False 
CSIider3.Visible = False 
CSIiderl. Visible = False 
CSIider2.Visible = False 
CSIider5.Visible = False 
AdjHiLimit.Visible = False 
AdjLowSetLimit.Visible = False 



